home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / boymks5e.zip / PCBOARD.BSC < prev    next >
Text File  |  1991-12-16  |  7KB  |  184 lines
  1. \\
  2. \\ PCBoards script by Lee Breeden
  3. \\
  4.  
  5. \\ This script automates logons to PC-BOARD type Bulletin Boards.
  6. \\ You must set the following macros with BOYAN's configuration module:
  7. \\  \! = Macro # 111 = Your first name
  8. \\  \@ = Macro # 112 = Your last name
  9. \\ You must set a back quote character one space after your first
  10. \\ name.  ie:  Lee `
  11. \\ Script by:  Lee Breeden
  12.  
  13. \DM[CONNECTED TO PC-BOARD!]
  14. |LOGON
  15. \\wl
  16. \ST[ » Press <TAB> for Menu options «]
  17. \SVN[]\SVF[]\SVG[]\SVM[]\SVQ[]\SVS[]\SVU[]
  18. \SVY[%SC]
  19. \gb[menu]
  20.  
  21.  
  22. |menu
  23. \BL[NAME]
  24. \BL[QUEST]
  25. \BL[FILES]
  26. \EB
  27.  
  28. |name
  29. \IE+%VN,X[\eb]
  30. \wp[]\dm21[Starting to log name onto %SN]
  31. \\CA-[\gs[script;calback]\eb]                        \\ Checks carrier
  32. \if+raphics[n q NS{\gb[name]]                       \\ looks for prompt
  33. \if+irst[\! \@{\gb[name]]                          \\ looks for prompt
  34. \if+ast[\@{\gb[name]]                               \\ looks for prompt
  35. \if+required[\gb[name]]                             \\ looks for prompt
  36. \if+Is this correct[{\gb[name]]                     \\ looks for prompt
  37. \if+Re-enter your name[r{\gb[name]]                 \\ error messages
  38. \if+assword[%PW{\svn[x]\eb]                         \\ looks for prompt
  39. {\pa[1]\gb[name]
  40.  
  41. |QUEST
  42. \IE+%VQ,X[\eb]
  43. \\WP[1]\\CA-[\AB]
  44. \DM[Script running - connected to %SN]
  45. \IF+(NS)[n{\GB[quest]]
  46. \IF+ontinue[{\GB[quest]]
  47. \IF+mail[{\GB[quest]]
  48. \IF+(NS)non-stop?[n{\GB[quest]]
  49. \IF+Command?[{\SVQ[X]\EB]
  50. \IF+(Enter)[N{\GB[quest]]
  51. \IF+ (Enter)=none?[{\GB[quest]]
  52. \IF+ore[n{\GB[quest]]
  53. \IF+respond[{\GB[quest]]
  54. \if+Main[{\SVQ[X]\eb]
  55. \if+assword[%PW{]
  56. \WP[]^K{\GB[quest]
  57. \IF+ommand[{\SVQ[X]\EB]
  58. \EB
  59.  
  60. |FILES
  61. \IE+%VF,X[\eb]
  62. \dm[Scaning for new files]{
  63. \to[20]\WP[1]\CA-[\EB]
  64. \wf[ommand]N;S;A;NS{~\LD+[%B:files.new]\pa[30]
  65. \to[254]\wp[]{
  66. \WF[ommand]\SVF[X]\EB
  67. \IF+ore[{]
  68. \SVQ[X]\EB
  69.  
  70. |upload
  71. \dm[Starting file upload]
  72. \ca-[\eb]
  73. \ld-  {
  74. \WF[ommand]u;%v5{
  75. \WP[5] \if+ommand[\eb]%V6{
  76. \WF[? ]%v7{
  77. \WF[? ]%v8{
  78. {\pa[1]{
  79. \\WF[Protocol Type]\ulz[%v5]{
  80. \WF[Ctrl-X]\ulz[%v5]{
  81. \pa[15]{~~{
  82. \WF[ommand]\eb{~~~{
  83.  
  84. |download
  85. \dm8[Starting file dnload]{
  86. \WF[ommand]d;%v9{
  87. \WF[ilespec]{
  88. \IW-[\eb]|\WF[transfer]{
  89. {
  90. \WF[abort]\dlz[%V9]{
  91. \WF[ommand]\eb{
  92.  
  93. |logoff
  94. \dm[Getting ready to logoff]{
  95. \CA-[\AB]
  96. \ko[0]
  97. \wf[]g{
  98. \pa[4]
  99. \EB
  100.  
  101.  
  102. |*TAB             \\ This runs automatically when <Tab> pressed
  103. \SV0[1] \KS
  104. \DM38,%V0[ ╔═══════════════════════════════════════╗ ]\+V0[1]
  105. \DM38,%V0[  ║ OnLine MENU    %HR:%MI  %Mo/%DA/%YR        ║ ]\+V0[1]
  106. \DM38,%V0[ ╠═══════════════════════════════════════╣ ]  \+V0[1]
  107. \DM38,%V0[ ║ <D> = Download a file                 ║ ]  \+V0[1]
  108. \DM38,%V0[ ║ <DM>= Download Mail (from mail door)  ║ ]  \+V0[1]
  109. \DM38,%V0[ ║ <E> = Edit Script                     ║ ]  \+V0[1]
  110. \DM38,%V0[ ║ <F> = File Manager                    ║ ]  \+V0[1]
  111. \DM38,%V0[ ║ <H> = Hang up command                 ║ ]  \+V0[1]
  112. \DM38,%V0[ ║ <G> = Goodbye                         ║ ]  \+V0[1]
  113. \DM38,%V0[ ║ <J> = Jump to DOS                     ║ ]  \+V0[1]
  114. \DM38,%V0[ ║ <L> = Log to disk ...status %LD       ║ ]  \+V0[1]
  115. \DM38,%V0[ ║ <M> = Mail (check for your mail)      ║ ]  \+V0[1]
  116. \DM38,%V0[ ║ <N> = New File Scan                   ║ ]  \+V0[1]
  117. \DM38,%V0[ ║ <O> = Open Door                       ║ ]  \+V0[1]
  118. \DM38,%V0[ ║ <P> = edit Phone directory            ║ ]  \+V0[1]
  119. \DM38,%V0[ ║ <Q> = Quick Note file                 ║ ]  \+V0[1]
  120. \DM38,%V0[ ║ <S> = Scroll-back buffer              ║ ]  \+V0[1]
  121. \DM38,%V0[ ║ <T> = Termanial Mode                  ║ ]  \+V0[1]
  122. \DM38,%V0[ ║ <U> = Upload a file                   ║ ]  \+V0[1]
  123. \DM38,%V0[ ║ <UM>= Upload Mail (from mail door)    ║ ]  \+V0[1]
  124. \DM38,%V0[ ╟───────────────────────────────────────╢ ]  \+V0[1]
  125. \DM38,%V0[ ║ <R> = RESUME Script <?> Manual Macro  ║ ]  \+V0[1]
  126. \DM38,%V0[ ║<Esc>= ABORT script  <V> View settings ║ ]  \+V0[1]
  127. \DM38,%V0[ ╚═══════════════════════════════════════╝ ]
  128. \KO[30]  \BB+  \KV0__[Enter OPTION: ]  \BB-  \RS
  129. \IV0+C[\SVQ[]\SC[SCRIPT;quest]\gb[termlines]]
  130. \IV0+DM[\SVG[]\SC[SCRIPT;MMdl]]
  131. \IV0+D[\SVD[]\SC[SCRIPT;Download]]
  132. \IV0+E[\DC-[%WC %S:%VY]\gb[*tab]]
  133. \IV0+G[\SC[SCRIPT;logoff]\EB]
  134. \IV0+F[\FM[]\gb[*tab]]
  135. \IV0+H[\SC[SCRIPT;logoff]]
  136. \IV0+J[\JD\gb[*tab]]
  137. \IV0+L[\LD*\gb[*tab]]
  138. \IV0+M[R Y{\GB[termlines]]
  139. \IV0+?[\KV9[MACRO:]   \LV9[]  \IE+%LV,1[\SV9[%V9]]\gb[*tab]]
  140. \IV0+N[\SVF[]N S U N{\GB[termlines]]
  141. \IV0+O[\SVM[]op %V2 {\GB[termlines]]
  142. \IV0+P[ \DI[] \GB[*Tab] ]
  143. \IV0+Q[\DC-[%WC %B:notes.txt]]
  144. \IV0+R[\gb[menu]]
  145. \IV0+S[\RB\gb[*Tab]]
  146. \IV0+T[\gb[termlines]\gb[*tab]]
  147. \IV0+UM[\SVS[]\SC[SCRIPT;MMul]\gb[*tab]]
  148. \IV0+U[\SVU[]\SC[SCRIPT;upload]\gb[*tab]]
  149. \IV0+V[\SC[SCRIPT;settings]\gb[*tab]]
  150. \GB[*TAB]
  151.  
  152. |TermLines
  153. \to[120]
  154. \ST[ » Press <TAB> for Menu options «]
  155. \RE[\CA-[\ab] \IK+[%IK]]
  156.  
  157. |Settings
  158. \sv0[1]
  159. \DM4,%V0[ ╔═══════════════════════════════════════╗                                              ]\+V0[1]
  160. \DM4,%V0[ ║   Current settings                    ║                                              ]\+V0[1]
  161. \DM4,%V0[ ╠═══════════════════════════════════════╣                                              ]\+V0[1]
  162. \DM4,%V0[ ║  Avail. shell MEM  : %DS              ║                                              ]\+V0[1]
  163. \DM4,%V0[ ║ Current Act Module : %AM                ║                                              ]\+V0[1]
  164. \DM4,%V0[ ║   Pervious Act Mod : %AP                ║                                              ]\+V0[1]
  165. \DM4,%V0[ ║       Beep & Bells : %BB              ║                                              ]\+V0[1]
  166. \DM4,%V0[ ║        8Bit ON/OFF : %B8              ║                                              ]\+V0[1]
  167. \DM4,%V0[ ║           Com Port : %MD                ║                                              ]\+V0[1]
  168. \DM4,%V0[ ║        Modem Speed : %MS             ║                                              ]\+V0[1]
  169. \DM4,%V0[ ║       Modem Parity : %MP                ║                                              ]\+V0[1]
  170. \DM4,%V0[ ║        Echo set to : %EC              ║                                              ]\+V0[1]
  171. \DM4,%V0[ ║       Uart Setting : %AU              ║                                              ]\+V0[1]
  172. \DM4,%V0[ ║  Line Feeds set to : %LF               ║                                              ]\+V0[1]
  173. \DM4,%V0[ ║ Current Printer Set: %PR              ║                                              ]\+V0[1]
  174. \DM4,%V0[ ║   Default Protocol : %DP                                                             ]\+V0[1]
  175. \DM4,%V0[ ║   Current Log file : %LN                                                             ]\+V0[1]
  176. \DM4,%V0[ ║  Path for Protocol : %P:                                                             ]\+V0[1]
  177. \DM4,%V0[ ║  Current Phone dir : %FD                                                             ]\+V0[1]
  178. \DM4,%V0[ ║       Connected to : %SN                                                             ]\+V0[1]
  179. \DM4,%V0[ ║      Last filename : %TF                                                             ]\+V0[1]
  180. \DM4,%V0[ ║        Current Dir : %C:                                                             ]\+V0[1]
  181. \DM4,%V0[ ║ Download Directory : %D:                                                             ]\+V0[1]
  182. \DM4,%V0[ ╚════════════════════════════════════════════════════════════════════════════════════╝ ]
  183.  
  184.